home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / billacct / bilpnt18.zip / BILLPOWR.EXE / 0 / RCDATA / TWEEKSCREEN / TWEEKSCREEN.txt
Text File  |  1997-02-15  |  4KB  |  180 lines
  1. object WeekScreen: TWeekScreen
  2.   Left = 3
  3.   Top = 100
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Daily Screen'
  7.   ClientHeight = 248
  8.   ClientWidth = 632
  9.   Font.Color = clWindowText
  10.   Font.Height = -15
  11.   Font.Name = 'Arial'
  12.   Font.Pitch = fpFixed
  13.   Font.Style = []
  14.   Menu = MainMenu1
  15.   Scaled = False
  16.   OnClose = FormClose
  17.   OnDblClick = WeekScreenDblClick
  18.   OnKeyDown = keydown
  19.   OnKeyPress = keypress
  20.   OnMouseDown = MouseDown
  21.   OnShow = FormShow
  22.   PixelsPerInch = 96
  23.   TextHeight = 17
  24.   object MonthScreenImage: TImage
  25.     Left = 0
  26.     Top = 0
  27.     Width = 632
  28.     Height = 248
  29.     Align = alClient
  30.     OnDblClick = WeekScreenDblClick
  31.     OnDragDrop = MonthScreenImageDragDrop
  32.     OnDragOver = MonthScreenImageDragOver
  33.     OnEndDrag = MonthScreenImageEndDrag
  34.     OnMouseDown = MouseDown
  35.   end
  36.   object OKbtn: TButton
  37.     Left = 554
  38.     Top = 4
  39.     Width = 71
  40.     Height = 25
  41.     Caption = 'OK'
  42.     TabOrder = 0
  43.     TabStop = False
  44.     OnClick = OKbtnClick
  45.     OnKeyDown = keydown
  46.   end
  47.   object CancelBtn: TButton
  48.     Left = 476
  49.     Top = 4
  50.     Width = 71
  51.     Height = 25
  52.     Cancel = True
  53.     Caption = '&Cancel'
  54.     TabOrder = 1
  55.     TabStop = False
  56.     OnClick = OKbtnClick
  57.     OnKeyDown = keydown
  58.   end
  59.   object DailyListBox: TListBox
  60.     Left = 384
  61.     Top = 58
  62.     Width = 121
  63.     Height = 97
  64.     HelpContext = 303
  65.     ItemHeight = 17
  66.     Sorted = True
  67.     TabOrder = 2
  68.     OnDblClick = WeekScreenDblClick
  69.     OnKeyDown = keydown
  70.     OnKeyPress = keypress
  71.     OnMouseDown = MouseDown
  72.   end
  73.   object UpBtn: TButton
  74.     Left = 4
  75.     Top = 4
  76.     Width = 20
  77.     Height = 20
  78.     HelpContext = 303
  79.     Caption = 'UpBtn'
  80.     Font.Color = clWindowText
  81.     Font.Height = -15
  82.     Font.Name = 'Terminal'
  83.     Font.Pitch = fpFixed
  84.     Font.Style = []
  85.     ParentFont = False
  86.     ParentShowHint = False
  87.     ShowHint = True
  88.     TabOrder = 3
  89.     TabStop = False
  90.     OnClick = UpBtnClick
  91.   end
  92.   object DnBtn: TButton
  93.     Left = 4
  94.     Top = 28
  95.     Width = 20
  96.     Height = 20
  97.     HelpContext = 303
  98.     Caption = 'DnBtn'
  99.     Font.Color = clWindowText
  100.     Font.Height = -15
  101.     Font.Name = 'Terminal'
  102.     Font.Pitch = fpFixed
  103.     Font.Style = []
  104.     ParentFont = False
  105.     ParentShowHint = False
  106.     ShowHint = True
  107.     TabOrder = 4
  108.     TabStop = False
  109.     OnClick = UpBtnClick
  110.   end
  111.   object twentyHr: TCheckBox
  112.     Left = 526
  113.     Top = 30
  114.     Width = 97
  115.     Height = 17
  116.     HelpContext = 303
  117.     TabStop = False
  118.     Alignment = taLeftJustify
  119.     Caption = '20-hr View'
  120.     TabOrder = 5
  121.     OnClick = twentyHrClick
  122.     OnKeyDown = keydown
  123.   end
  124.   object MainMenu1: TMainMenu
  125.     Left = 190
  126.     Top = 2
  127.     object DayPrint: TMenuItem
  128.       Caption = '&Print'
  129.       HelpContext = 303
  130.       ShortCut = 0
  131.       object DayPrintScreen: TMenuItem
  132.         Caption = '&Print Screen'
  133.         HelpContext = 303
  134.         ShortCut = 0
  135.         OnClick = DayPrintScreenClick
  136.       end
  137.     end
  138.     object WView: TMenuItem
  139.       Caption = '&View'
  140.       HelpContext = 303
  141.       ShortCut = 0
  142.       object ViewDescription1: TMenuItem
  143.         Caption = '&Description'
  144.         HelpContext = 303
  145.         ShortCut = 0
  146.         OnClick = WViewClick
  147.       end
  148.       object ViewDescription2: TMenuItem
  149.         Caption = 'Descri&ption, by Person'
  150.         HelpContext = 303
  151.         ShortCut = 0
  152.         OnClick = WViewClick
  153.       end
  154.       object ViewEventType: TMenuItem
  155.         Caption = '&Event Type, by Person'
  156.         HelpContext = 303
  157.         ShortCut = 0
  158.         OnClick = WViewClick
  159.       end
  160.       object ViewTimeAlloc: TMenuItem
  161.         Caption = '&Time Allocated, by Person'
  162.         HelpContext = 303
  163.         ShortCut = 0
  164.         OnClick = WViewClick
  165.       end
  166.     end
  167.     object DayHelp: TMenuItem
  168.       Caption = '&Help'
  169.       HelpContext = 303
  170.       ShortCut = 112
  171.       OnClick = DayHelpClick
  172.     end
  173.   end
  174.   object PrintDialog1: TPrintDialog
  175.     Options = [poPageNums, poSelection, poWarning]
  176.     Left = 226
  177.     Top = 2
  178.   end
  179. end
  180.